(deffacts data

(begin)

(type a A amplituner)
(type b B stereoamp)
(type c C cdplayer)
(type d D tuner)
(type e E homecinema)
(type f F portable)
(type g G headphones)
(type h H loudspeakers)

;zrobic trackbara
(price a A upto100)
(price b B upto300)
(price c C upto500)
(price d D upto1000)
(price e E upto2000)
(price f F upto5000)
(price g G upto50000)

;przefiltrowac zaleznie od type
;multiple choice if not z|Z
(brand a A denon)
(brand b B harman)
(brand c C nad)
(brand d D sony)
(brand e E sennheiser)
(brand f F grado)
(brand g G akg)
(brand h H philips)
(brand i I creative)
(brand j J apple)
(brand k K iriver)
(brand l L yamaha)
(brand m M technics)
(brand n N jbl)
(brand o O tannoy)
(brand p P kef)
(brand z Z irrelevant)

;multiple choice if not z|Z
(music a A rock)
(music b B metal)
(music c C jazz)
(music d D classical)
(music e E pop)
(music f F electronic)
(music g G rap)
(music z Z irrelevant)

;multiple choice if not z|Z
(colour a A black)
(colour b B silver)
(colour c C red)
(colour d D green)
(colour e F woody)
(colour g G other)
(colour z Z irrelevant)

(power a A upto20)
(power b B upto40)
(power c C upto60)
(power d D upto80)
(power e E upto100)
(power f F more)

(channels a A twozero)
(channels b B twoone)
(channels c C fourzero)
(channels d D fourone)
(channels e E fiveone)
(channels f F sixone)
(channels g G sevenone)
(channels z Z irrelevant)

(pilot a A yes)
(pilot b B no)
(pilot z Z irrelevant)

(headphonesout a A two)
(headphonesout b B three)
(headphonesout c C six)
(headphonesout z Z irrelevant)

(reads a A lossless)
(reads b B mp3)
(reads c C ogg)
(reads d D dvd)
(reads e E divx)
(reads f F bluray)
(reads z Z irrelevant)

(hdmi a A yes)
(hdmi b B no)
(hdmi z Z irrelevant)

(memory a A upto1)
(memory b B upto2)
(memory c C upto4)
(memory d D upto8)
(memory e E more)
(memory z Z irrelevant)

(battery a A AA)
(battery b B AAA)
(battery c C acu)
(battery d D irrelevant)

(lcd a A colour)
(lcd b B mono)
(lcd c C none)
(lcd z Z irrelevant)

)

(defrule the_very_begining
?x <- (begin)
	=>
	(retract ?x)
	(assert (second))
)

(defrule the_second_rule
?x <- (second)
	=>
	(retract ?x)
	(printout t "your old mother" crlf)
	(assert (begin))
)
